0 PRINT"[147]":POKE53280,6:POKE53281,0
1 REM ==================================
2 REM    COMMODARES PROBLEM #52-4 :
3 REM       FACTOR FUN
4 REM    SOLUTION BY
5 REM       CLAUDE LANDUSKY
6 REM ==================================
10 TI$="000000":PRINT"INITIALIZATION TAKES OVER AN HOUR FOR N TO REACH 31627...":PRINT:PRINT"N ="
20 DIM P(3500):P(0)=2:C=1
30 FORN=3TO31627STEP2:X=0:PRINT N;
40 Q=P(X):IFQ*Q>NTHENP(C)=N:C=C+1:GOTO70
50 IFN/Q=INT(N/Q)THEN70
60 X=X+1:GOTO40
70 NEXT:PRINT TI$
80 INPUT"NUMBER TO FACTOR";N:TI$="000000":F=0:C=0:IFN>999999999THEN80
90 Q=P(F):IFQ*Q>NTHEN120
100 IFN/Q=INT(N/Q)THENN=N/Q:C=1:PRINTQ;:GOTO100
110 F=F+1:GOTO90
120 IFC=0THENPRINT"PRIME"=;:GOTO140
130 IFN<>1THENPRINTN;
140 PRINT:PRINTTI$:GOTO80